home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / begincpp.zip / #5_VER2.C < prev    next >
C/C++ Source or Header  |  1990-08-05  |  9KB  |  291 lines
  1. #line 1 "#5_VER2.cxx"
  2. void *_new(long);
  3. void _delete(void*);
  4. void *_vec_new(void*,int,int,void*(*)(void*));
  5. void _vec_delete(void*,int,int,void(*)(void*,int),...);
  6. void exit(int);
  7. static void cdecl _STI();
  8. static void cdecl _STD();
  9.  
  10. typedef unsigned int size_t ;
  11. typedef char *va_list ;
  12. struct _iobuf { 
  13. char *__iobuf__ptr ;
  14. int __iobuf__cnt ;
  15. char *__iobuf__base ;
  16. char __iobuf__flag ;
  17. char __iobuf__file ;} ;
  18. extern struct _iobuf _iob [];
  19. int _filbuf (struct _iobuf *);
  20. int _flsbuf (int , struct _iobuf *);
  21. void clearerr (struct _iobuf *);
  22. int fclose (struct _iobuf *);
  23. int fcloseall (void );
  24. struct _iobuf *fdopen (int , char *);
  25. int fflush (struct _iobuf *);
  26. int fgetc (struct _iobuf *);
  27. int fgetchar (void );
  28. int fgetpos (struct _iobuf *, long *);
  29. char *fgets (char *, int , struct _iobuf *);
  30. int flushall (void );
  31. struct _iobuf *fopen (char *, char *);
  32. int fprintf (struct _iobuf *, char *, ... );
  33. int fputc (int , struct _iobuf *);
  34. int fputchar (int );
  35. int fputs (char *, struct _iobuf *);
  36. size_t fread (void *, size_t , size_t , struct _iobuf *);
  37. struct _iobuf *freopen (char *, char *, struct _iobuf *);
  38. int fscanf (struct _iobuf *, char *, ... );
  39. int fsetpos (struct _iobuf *, long *);
  40. int fseek (struct _iobuf *, long , int );
  41. long ftell (struct _iobuf *);
  42. size_t fwrite (void *, size_t , size_t , struct _iobuf *);
  43. char *gets (char *);
  44. int getw (struct _iobuf *);
  45. void perror (char *);
  46. int printf (char *, ... );
  47. int puts (char *);
  48. int putw (int , struct _iobuf *);
  49. int remove (char *);
  50. int rename (char *, char *);
  51. void rewind (struct _iobuf *);
  52. int rmtmp (void );
  53. int scanf (char *, ... );
  54. void setbuf (struct _iobuf *, char *);
  55. int setvbuf (struct _iobuf *, char *, int , size_t );
  56. int sprintf (char *, char *, ... );
  57. int sscanf (char *, char *, ... );
  58. char *tempnam (char *, char *);
  59. struct _iobuf *tmpfile (void );
  60. char *tmpnam (char *);
  61. int ungetc (int , struct _iobuf *);
  62. int unlink (char *);
  63. int vfprintf (struct _iobuf *, char *, va_list );
  64. int vprintf (char *, va_list );
  65. int vsprintf (char *, char *, va_list );
  66.  
  67.  
  68. struct animal { 
  69.     int (pascal **_animal__vptr_PN )(void );
  70. } ;
  71. static void pascal _animal_identify (struct animal* );
  72. static int (pascal *animal__vtbl_PN[])() = {
  73.     (int(pascal *)()) _animal_identify , 
  74.     (int(pascal *)()) 0
  75. };
  76.  
  77. struct mammal { 
  78.     int (pascal **_animal__vptr_PN )(void );
  79. } ;
  80. static void pascal _mammal_identify (struct mammal* );
  81. static int (pascal *mammal__vtbl_PN[])() = {
  82.     (int(pascal *)()) _mammal_identify , 
  83.     (int(pascal *)()) 0
  84. };
  85.  
  86. struct bird { 
  87.     int (pascal **_animal__vptr_PN )(void );
  88. } ;
  89. static void pascal _bird_identify (struct bird* );
  90. static int (pascal *bird__vtbl_PN[])() = {
  91.     (int(pascal *)()) _bird_identify , 
  92.     (int(pascal *)()) 0
  93. };
  94.  
  95. struct dog { 
  96.     int (pascal **_animal__vptr_PN )(void );
  97. } ;
  98. static void pascal _dog_identify (struct dog* );
  99. static int (pascal *dog__vtbl_PN[])() = {
  100.     (int(pascal *)()) _dog_identify , 
  101.     (int(pascal *)()) 0
  102. };
  103.  
  104. struct eagle { 
  105.     int (pascal **_animal__vptr_PN )(void );
  106. } ;
  107. static void pascal _eagle_identify (struct eagle* );
  108. static int (pascal *eagle__vtbl_PN[])() = {
  109.     (int(pascal *)()) _eagle_identify , 
  110.     (int(pascal *)()) 0
  111. };
  112.  
  113. void print1 (void );
  114. void print2 (void );
  115. void print3 (void );
  116.  
  117. int main ()
  118. { 
  119.     { 
  120.         print1 ( ) ;
  121.         print2 ( ) ;
  122.         print3 ( ) ;
  123.     }  
  124.     exit ( 0 ); 
  125. }
  126.  
  127. extern void print1 ()
  128. { 
  129.     struct animal *_au1_ap = 0 ;
  130.     struct mammal *_au1_mp = 0 ;
  131.     struct bird *_au1_bp = 0 ;
  132.     struct dog *_au1_dp = 0 ;
  133.     struct eagle *_au1_ep = 0 ;
  134.     register struct mammal *_au0__Xthis__ctor_mammal = 0 ;
  135.     register struct bird *_au0__Xthis__ctor_bird = 0 ;
  136.     register struct dog *_au0__Xthis__ctor_dog = 0 ;
  137.     register struct eagle *_au0__Xthis__ctor_eagle = 0 ;
  138.     register struct animal *_au0__Xthis__ctor_animal = 0 ;
  139.  
  140.     _au1_ap = (struct animal *)( (_au0__Xthis__ctor_animal = 0 ), 
  141.         ( ( (_au0__Xthis__ctor_animal = (struct animal *)_new ( 
  142.             (long )(sizeof (struct animal))) ), 0 ) , 
  143.             ( (_au0__Xthis__ctor_animal -> _animal__vptr_PN 
  144.             =  animal__vtbl_PN), ((_au0__Xthis__ctor_animal ))) ) ) ;
  145.             
  146.     (*(((void (pascal *)())(*_au1_ap -> _animal__vptr_PN ))))( _au1_ap ) ;
  147.  
  148.     _au1_mp = (struct mammal *)( (_au0__Xthis__ctor_mammal = 0 ), 
  149.         ( ( (_au0__Xthis__ctor_mammal = (struct mammal *)_new ( 
  150.             (long )(sizeof (struct mammal))) ), 0 ) , 
  151.             ( ( (_au0__Xthis__ctor_mammal 
  152.             = (struct mammal *)( ( ((((struct animal *)
  153.             _au0__Xthis__ctor_mammal ))-> _animal__vptr_PN 
  154.             =  animal__vtbl_PN), 
  155.             (((((struct animal *)_au0__Xthis__ctor_mammal ))))) ) ), 
  156.             (_au0__Xthis__ctor_mammal -> _animal__vptr_PN 
  157.             =  mammal__vtbl_PN)) , ((_au0__Xthis__ctor_mammal ))) ) ) ;
  158.     
  159.     (*(((void (pascal *)())(*_au1_mp -> _animal__vptr_PN ))))( _au1_mp ) ;
  160.  
  161.     _au1_bp = (struct bird *)( (_au0__Xthis__ctor_bird = 0 ), 
  162.         ( ( (_au0__Xthis__ctor_bird = (struct bird *)_new ( 
  163.             (long )(sizeof (struct bird))) ), 0 ) , 
  164.             ( ( (_au0__Xthis__ctor_bird = (struct bird *)
  165.             ( ( ((((struct animal *)_au0__Xthis__ctor_bird ))-> 
  166.             _animal__vptr_PN =  animal__vtbl_PN), 
  167.             (((((struct animal *)_au0__Xthis__ctor_bird ))))) ) ), 
  168.             (_au0__Xthis__ctor_bird -> _animal__vptr_PN 
  169.             =  bird__vtbl_PN)) , ((_au0__Xthis__ctor_bird ))) ) ) ;
  170.             
  171.     (*(((void (pascal *)())(*_au1_bp -> _animal__vptr_PN ))))( _au1_bp ) ;
  172.  
  173.     _au1_dp = (struct dog *)( (_au0__Xthis__ctor_dog = 0 ), 
  174.         ( ( (_au0__Xthis__ctor_dog = (struct dog *)_new ( 
  175.             (long )(sizeof (struct dog))) ), 0 ) , 
  176.             ( ( (_au0__Xthis__ctor_dog = (struct dog *)
  177.             ( ( ( (( ( ((((struct animal *)(((struct mammal *)
  178.             _au0__Xthis__ctor_dog ))))-> _animal__vptr_PN 
  179.             =  animal__vtbl_PN), 
  180.             (((((struct animal *)(((struct mammal *)
  181.             _au0__Xthis__ctor_dog ))))))) ) ), 
  182.             ((((struct mammal *)_au0__Xthis__ctor_dog ))-> _animal__vptr_PN 
  183.             =  mammal__vtbl_PN)) , 
  184.             (((((struct mammal *)_au0__Xthis__ctor_dog ))))) ) ), 
  185.             (_au0__Xthis__ctor_dog -> _animal__vptr_PN 
  186.             =  dog__vtbl_PN)) , ((_au0__Xthis__ctor_dog ))) ) ) ;
  187.             
  188.     (*(((void (pascal *)())(*_au1_dp -> _animal__vptr_PN ))))( _au1_dp ) ;
  189.  
  190.     _au1_ep = (struct eagle *)( (_au0__Xthis__ctor_eagle = 0 ), 
  191.         ( ( (_au0__Xthis__ctor_eagle = (struct eagle *)_new ( 
  192.         (long )(sizeof (struct eagle))) ), 0 ) , 
  193.         ( ( (_au0__Xthis__ctor_eagle = (struct eagle *)
  194.         ( ( ( (( ( ((((struct animal *)(((struct bird *)
  195.         _au0__Xthis__ctor_eagle ))))-> _animal__vptr_PN 
  196.         =  animal__vtbl_PN), (((((struct animal *)
  197.         (((struct bird *)_au0__Xthis__ctor_eagle ))))))) ) ), 
  198.         ((((struct bird *)_au0__Xthis__ctor_eagle ))-> _animal__vptr_PN 
  199.         =  bird__vtbl_PN)) , 
  200.         (((((struct bird *)_au0__Xthis__ctor_eagle ))))) ) ), 
  201.         (_au0__Xthis__ctor_eagle -> _animal__vptr_PN =  eagle__vtbl_PN)) , 
  202.         ((_au0__Xthis__ctor_eagle ))) ) ) ;
  203.         
  204.     (*(((void (pascal *)())(*_au1_ep -> _animal__vptr_PN ))))( _au1_ep ) ;
  205.  
  206.     printf ( (char *)"\n") ;
  207. } 
  208.  
  209. extern void print2 ()
  210. { 
  211.     struct animal *_au1_ap = 0 ;
  212.     struct mammal *_au1_mp = 0 ;
  213.     struct mammal *_au0__K1 = 0 ;
  214.     
  215.     register struct animal *_au0__Xthis__ctor_animal = 0 ;
  216.     
  217.     _au1_ap = (struct animal *)( (_au0__Xthis__ctor_animal = 0 ), 
  218.         ( ( (_au0__Xthis__ctor_animal = (struct animal *)_new ( 
  219.             (long )(sizeof (struct animal))) ), 0 ) , 
  220.             ( (_au0__Xthis__ctor_animal -> _animal__vptr_PN 
  221.             =  animal__vtbl_PN), ((_au0__Xthis__ctor_animal ))) ) ) ;
  222.  
  223.     (*(((void (pascal *)())(*_au1_ap -> _animal__vptr_PN ))))( _au1_ap ) ;
  224.  
  225.     ( (_au0__K1 = (((struct mammal *)_au1_ap ))), (*(((void (pascal *)())
  226.         (*_au0__K1 -> _animal__vptr_PN ))))( _au0__K1 ) ) ;
  227.  
  228.     _au1_mp = (((struct mammal *)_au1_ap ));
  229.     (*(((void (pascal *)())(*_au1_mp -> _animal__vptr_PN ))))( _au1_mp ) ;
  230.  
  231.     printf ( (char *)"\n") ;} 
  232.  
  233. extern void print3 ()
  234. { 
  235.     struct animal _au1_a ;
  236.     struct animal *_au1_ap = 0 ;
  237.     struct mammal _au1_m ;
  238.     struct eagle _au1_e ;
  239.  
  240.     ( ( ((& _au1_a )-> _animal__vptr_PN =  animal__vtbl_PN), 
  241.             (((& _au1_a )))) ) ;
  242.     
  243.     _au1_ap = (& _au1_a );
  244.  
  245.     ( ( ( (( ( ((((struct animal *)(& _au1_m )))-> _animal__vptr_PN 
  246.         =  animal__vtbl_PN), (((((struct animal *)(& _au1_m )))))) ) ), 
  247.         ((& _au1_m )-> _animal__vptr_PN =  mammal__vtbl_PN)) , 
  248.         (((& _au1_m )))) ) ;
  249.  
  250.     ( ( ( (( ( ( (( ( ((((struct animal *)
  251.         (((struct bird *)(& _au1_e )))))-> _animal__vptr_PN 
  252.         =  animal__vtbl_PN), 
  253.         (((((struct animal *)(((struct bird *)(& _au1_e )))))))) ) ), 
  254.         ((((struct bird *)(& _au1_e )))-> _animal__vptr_PN 
  255.         =  bird__vtbl_PN)) , (((((struct bird *)(& _au1_e )))))) ) ), 
  256.         ((& _au1_e )-> _animal__vptr_PN =  eagle__vtbl_PN)) , 
  257.         (((& _au1_e )))) ) ;
  258.  
  259.     (*(((void (pascal *)())(*_au1_ap -> _animal__vptr_PN ))))( _au1_ap ) ;
  260.  
  261.     _au1_ap = (struct animal *)(& _au1_m );
  262.     
  263.     (*(((void (pascal *)())(*_au1_ap -> _animal__vptr_PN ))))( _au1_ap ) ;
  264.  
  265.     printf ( (char *)"\n") ;} 
  266.  
  267. static void pascal _eagle_identify (register struct eagle *this )
  268. { 
  269.     printf ( (char *)"%s\n", "eagle") ;
  270. } 
  271.  
  272. static void pascal _dog_identify (register struct dog *this )
  273. { 
  274.     printf ( (char *)"%s\n", "dog") ;
  275. } 
  276.  
  277. static void pascal _bird_identify (register struct bird *this )
  278. { 
  279.     printf ( (char *)"%s\n", "bird") ;
  280. } 
  281.  
  282. static void pascal _mammal_identify (register struct mammal *this )
  283. { 
  284.     printf ( (char *)"%s\n", "mammal") ;
  285. } 
  286.  
  287. static void pascal _animal_identify (register struct animal *this )
  288. { 
  289.     printf ( (char *)"%s\n", "animal") ;
  290. } 
  291.